	# extract from Serial.pm
	package Serial;
	use strict;
	
	use Carp;
	
	our %conf = (
	   'start' => 1,
	   'increment' => 1,
	);
	
	sub new {
	   my $class = (ref $_[0]) || $_[0];
	   $conf{'start'} = $_[1] if defined $_[1];
	
	   my $self=bless {}, $class;
	   $self->{'serial'} = $conf{'start'};
	   $conf{'start'} += $conf{'increment'};
	   return $self;
	}
	
	sub serial {
	   return shift->{'serial'};
	}
	
	1;
